00100	BEGIN"RECV"
00200	INTEGER JUNK;
00250	LABEL BEYOND;
00300	OPEN(1,"DSK",'14,0,2,0,0,0);
00400	ENTER(1,INCHWL,0);
00500	DO
00600	    BEGIN
00700		JUNK←INCHRW;
00800	    END UNTIL JUNK='141;
00900	
01000	WHILE TRUE DO
01100	    BEGIN
01200		INTEGER WORD,BP,I;
01300		BP←POINT(6,WORD,-1);
01350		WORD←0;
01400		FOR I←1 STEP 1 UNTIL 6 DO
01500		    BEGIN
01600			INTEGER C;
01700			C←INCHRW;
01800			IF C='172 THEN GOTO BEYOND;
01900			IDPB(C-'40,BP);
02000		    END;
02100		WORDOUT(1,WORD);
02200	    END;
02300	BEYOND:
02400	RELEASE(1);
02500	END"RECV";